program testProject2Program;

class testProject2Class

BEGIN

VAR 	XRay : ARRAY[0 .. 4] OF integer;
	YRay : ARRAY[8 .. 12] OF integer;
	aa : integer;
	bb : integer;
	cc : integer;
	dd : integer;
	ee : integer;
	ff : integer;
	gg : integer;

FUNCTION testProject2Function;
VAR	dd : integer;
BEGIN

	aa := 3;
	cc := aa + bb;
	dd := aa + bb;
	ee := gg + ff;
	while aa DO
	BEGIN
		aa := 1;
		ff := 2
	END;

	
	dd := gg + ff;
	aa := 3;
	dd := aa + bb


END

END
.



